home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFUNCS / RSCSXTYP.C < prev    next >
C/C++ Source or Header  |  1993-03-18  |  750b  |  28 lines
  1. /**************************************************************************
  2.  * RSCSXTYP.C - Set extended object types within a tree.
  3.  *************************************************************************/
  4.  
  5. #include "gemfintl.h"
  6.  
  7. #ifdef GEMFAST_PROTOS
  8.   void rsc_sxtypes(OBJECT *thetree, short thisobj, short thistype, ...)
  9. #else
  10.   void rsc_sxtypes(thetree, thisobj, thistype)
  11.     OBJECT *thetree;
  12.     short  thisobj;
  13.     short  thistype;
  14. #endif
  15. {
  16.     register OBJECT *ptree;
  17.     va_list          args;
  18.  
  19.     ptree = thetree;
  20.     va_start(args, thistype);
  21.     while (thisobj >= 0) {
  22.         ptree[thisobj].ob_type = (thistype << 8) | (ptree[thisobj].ob_type & 0x00FF);
  23.         thisobj  = va_arg(args, short);
  24.         thistype = va_arg(args, short);
  25.     }
  26.     va_end(args);
  27. }
  28.